home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / pt reader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  4.4 KB  |  186 lines
  1. 5 poke650,255:print"";:goto30
  2. 10 xx=0:ifxy<760thenreturn
  3. 15 print"[207]ut of lines!!!":fort=1to500:next:print"[145]                 "
  4. 20 xx=-1
  5. 25 return
  6. 30 poke53280,6:poke53281,0:print"[147]"
  7. 35 ifpeek(49408)<>1thenload"reader.o",8,1
  8. 40 gosub50:poke55,0:poke56,39:clr:s=10000:poke53272,23:tb=1503:goto60
  9. 45 rem *rst scr wd*
  10. 50 poke1020,1:poke1021,19:poke1022,0:poke1023,39:return
  11. 55 rem *sys #s*
  12. 60 iprc=49448:lsav=49430
  13. 65 mttp=49433:mbot=49436
  14. 70 sdwn=49415:scup=49412
  15. 75 sfil=49418:lfil=49421
  16. 80 lmov=49442:mwip=49439
  17. 85 dchr=49424:ichr=49427
  18. 90 wwrp=49445:clsm=49409
  19. 95 mdel=49451:mins=49454
  20. 100 wchk=49457:prnt=49460
  21. 105 splt=49463:cata=49466
  22. 110 g1lu=49469:g2lu=49472
  23. 115 g3lu=49475:g4li=49478
  24. 120 g5lu=49481:rdel=49484
  25. 125 sys mwip
  26. 130 gosub765
  27. 135 deffns(x)=x*40+9960
  28. 140 poke646,12:sys clsm:gosub405:ln=1:goto145
  29. 145 ps=1465:poke53272,23:t$="x":gosub715:goto155
  30. 150 rem*
  31. 155 getc$:ifc$=""then155
  32. 180 ifc$="p"orc$="[208]"then 245
  33. 181 ifc$="[133]"then print"[147]":gosub 1185:goto155
  34. 182 ifc$="[134]"then gosub 1195:goto155
  35. 183 ifc$="[135]"then gosub 1190:goto155
  36. 184 ifc$="[136]"then print"[147]":gosub 1180:goto155
  37. 185 ifc$="q"then 255
  38. 186 ifc$="[145]"then 220
  39. 187 ifc$=""then 225
  40. 189 goto 155
  41. 190 xy=ln:gosub10:ifxxthen200:rem cr
  42. 195 ps=1465:syslsav,ln:ln=ln+1:sys scup:sys mbot,ln+8
  43. 200 goto280
  44. 220 gosub355:goto155:crs up
  45. 225 gosub380:goto155:crs dn
  46. 245 gosub805:gosub720:goto155:^p printer
  47. 255 gosub1315:goto155:^x exit
  48. 280 rem
  49. 285 goto155
  50. 290 :
  51. 295 rem*rstr clr ln*
  52. 300 stop
  53. 303 return
  54. 305 rem*dl ch*
  55. 355 rem*cr up*
  56. 360 ifln=1thenprint"             [211]tart of text[152]":gosub585:return
  57. 365 gosub303:syslsav,ln:ln=ln-1:syssdwn
  58. 370 if ln>10then sysmttp,ln-10
  59. 375 return
  60. 380 rem*crsr dn*
  61. 385 ifln>=nlthengosub575:return
  62. 390 gosub303:syslsav,ln:ln=ln+1:sys scup:sys mbot,ln+8:return
  63. 405 rem*clr menu*
  64. 410 print"[155] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  65. 420 fort=1to3:print" [221]                                    [221]":nextt
  66. 425 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145]";:return
  67. 430 rem*wrap*
  68. 435 xy=ln:gosub10:ifxxthenreturn
  69. 440 xf=0:ifpeek(tb-1)=32thenxf=-1
  70. 445 sm=fns(ln+1):poke251,int(sm/256):poke250,sm-peek(251)*256
  71. 450 fm=fns(nl):poke253,int(fm/256):poke252,fm-peek(253)*256
  72. 455 syswchk:ifpeek(150)<>0thenpoke1020,12:syssdwn:sysmins:nl=nl+1:poke1020,1
  73. 460 sys wwrp:ps=peek(150)+1464:syslsav,ln:sys scup:ln=ln+1
  74. 465 ifxf=-1thenps=1465
  75. 470 return
  76. 475 rem*line del*
  77. 575 rembzz
  78. 580 print"[197]nd of text"
  79. 585 fort=1to40:nextt:goto605
  80. 590 poke54296,15:poke54277,45:poke54278,165
  81. 595 poke54276,33:poke54273,6:poke54272,5
  82. 600 fort=1to200:next:poke54276,32:poke54273,0:poke54272,0:poke198,0:return
  83. 605 print"                            ":return
  84. 610 :
  85. 615 rem*exit*
  86. 620 gosub410:print"[193]re you sure you want to exit?(y/n)"
  87. 625 getd$:ifd$="" then625
  88. 630 ifd$<>"y"then ow=0:return
  89. 631 goto 3000
  90. 715 rem menu
  91. 720 syslsav,ln:gosub410
  92. 725 print" [198]1[152] -[154] [212]op            [198]7 [152]-[154] [194]ottom "
  93. 730 print" [198]3[152] -[154] [198]orward       [160][198]5 [152]-[154] [210]everse"
  94. 735 print"  [208] [152]-[154] [208]rint it out    [209] [152]-[154] [209]uit"
  95. 740 if t$="x"then return
  96. 745 get me$:ifme$="" then745
  97. 750 if me$="p"orme$="h"orme$="x"then return
  98. 755 goto745
  99. 760 rem*load*
  100. 765 fi$="pt docs":gosub1260
  101. 770 sysmwip
  102. 775 poke250,17:poke251,39:poke252,nl/256:poke253,256*((nl/256)-peek(252))
  103. 780 sys lfil:t$="x":gosub1295:ifnl<>0then795
  104. 785 :
  105. 790 open15,8,15:input#15,s$:close15:return
  106. 795 return
  107. 800 rem*print*
  108. 805 syslsav,ln:gosub410
  109. 810 print"       ===== [208][210][201][206][212][197][210][152] ====="
  110. 815 print"[210]eady printer and hit space bar."
  111. 820 print"[216] to cancel.                    "
  112. 825 getp$:ifp$="" then825
  113. 830 ifp$<>" "then print"[145][207].[203]., don't print.":fort=1to699::nextt:return
  114. 835 open4,4,7:cmd4
  115. 840 lc=0:lp=1
  116. 845 ifnl-lp<120then865
  117. 850 fori=lptolp+59:rs=60:gosub885:next
  118. 855 ifpeek(203)=23then875
  119. 860 print:print:print:print:print:print:print:lp=lp+120:goto845
  120. 865 rs%=(nl-lp+2)/2:rs=rs%:fori=lptolp+rs-1:gosub885
  121. 870 next
  122. 875 print"";:getk$:print#4:close4:return
  123. 880 :
  124. 885 m1=fns(i):m2=fns(i+rs)
  125. 890 poke151,m1/256:poke150,256*(m1/256-peek(151)):sysprnt
  126. 895 poke151,m2/256:poke150,256*(m2/256-peek(151)):sysprnt
  127. 900 return
  128. 905 :
  129. 985 print"":poke646,12:sys clsm
  130. 990 gosub410:gosub725:
  131. 995 forp=ln-10toln+7
  132. 1000 ifp<1 then 1010
  133. 1005 sys mbot,p:sys scup
  134. 1010 nextp:sys mbot,p
  135. 1015 return
  136. 1100 ifln>nl-2thenreturn
  137. 1105 sysg1lu:qe=peek(252)+256*peek(253)
  138. 1110 ifqe>1502then1145
  139. 1115 sysg2lu
  140. 1120 qx=peek(150):gosub380
  141. 1125 ifqx=0then1145
  142. 1130 rem   poke150,qx:sysg4lu
  143. 1135 gosub1215
  144. 1140 ifqx>37thengosub475
  145. 1145 sysg5lu:ps=peek(250)+peek(251)*256
  146. 1150 ifps=1502thengosub380
  147. 1155 return
  148. 1160 ifps=1465then1175
  149. 1165 pz=ps:gosub380:gosub535:pk=fns(ln-1)
  150. 1170 poke151,pk/256:poke150,256*((pk/256)-peek(151)):poke250,pz-1465:syssplt
  151. 1175 return
  152. 1180 ln=nl:gosub985:return
  153. 1185 ln=1:gosub985:return
  154. 1190 forqd=1to18:gosub380:next:return
  155. 1195 forqd=1to18:gosub355:next:return
  156. 1200 gosub985:return
  157. 1205 gosub303:ps=1502:return
  158. 1210 gosub303:ps=1465:return
  159. 1215 sysg3lu:qx=peek(150)
  160. 1220 iff$=""thengosub380
  161. 1225 return
  162. 1260 fs$=fi$:
  163. 1265 open15,8,15,"i0":close15
  164. 1272 f$=fi$
  165. 1275 poke827,len(f$):forc=1tolen(f$):poke827+c,asc(mid$(f$,c)):next
  166. 1280 print"[147][152]    [208]lease wait while loading docs":gosub405
  167. 1285 return
  168. 1290 sysrdel
  169. 1295 ma=peek(250)+peek(251)*256
  170. 1300 ma=ma-10001:ifma<0thenma=0
  171. 1305 nl=int(ma/40)+1
  172. 1310 ln=1:gosub985:return
  173. 1315 rem*exit*
  174. 1320 gosub620:gosub410:gosub725
  175. 1325 if ow then print"[147]":run
  176. 1330 return
  177. 1332 rem*dblspc
  178. 1340 gosub1185:gosub380
  179. 1345 ifln<nlthengosub530:gosub380:gosub380:goto1345
  180. 1350 gosub530:return
  181. 3000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  182. 3001 if er<>63 then print"[147]":end
  183. 3002 print"[147][144]poke55,0:poke56,160:load"chr$(34)"hello connect"chr$(34)",8,1"
  184. 3003 poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
  185. 3004 new
  186.